home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)m7.d64 / joy 1c8.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  41 lines
  1. 0 REM**********************************      * MACHINE LANGUAGE JOYSTICK      *
  2. 1 REM* DECODER - COMMODORE 64 - 1C8   *      * READS JOYSTICK #1 + FIREBUTTON *
  3. 2 REM* CONTINUOUS ACTION-8 DIRECTIONS *      **********************************
  4. 3 REM**********************************      * BY ROGER D BURGE, #2667        *
  5. 4 REM* TORONTO PET USERS GROUP INC.   *      * TORONTO, CANADA                *
  6. 5 REM**********************************
  7. 10 POKE53280,1:POKE53281,6:PRINT"[147]        MACHINE LANGUAGE DECODER        ";
  8. 15 PRINT"                  #1C8                  ";SPC(11)"READS 8 DIRECTIONS
  9. 20 [153][166] 12)"BY ROGER D BURGE":[153][166]12)"FOR JOYSTICK # 1":[153]"READS JOYSTICK ";
  10. 25 [153]"CONTINOUSLY, THAT IS,   ONCE THE STICK IS PUSHED IN ONE         DIRECTION ";
  11. 30 [153]"THE JOYSTICK DECODER ROUTINE  WILL STILL GIVE THAT DIRECTION IF THE ";
  12. 35 [153]"  STICK IS RELEASED.
  13. 40 PRINT"LINES 90 AND ON SHOULD BE INCLUDED IN  YOUR PROGRAM."
  14. 45 PRINT"THE USE OF VARIABLES IN LINE 100       INSTEAD OF REAL NUMBERS, EG. 252,";
  15. 50 PRINT"GREATLYSPEEDS UP THE ROUTINE.
  16. 55 [153]"WHEN THE ROUTINE IS CALLED THEN D1 =   THE DIRECTION GIVEN BY JOYSTICK ";
  17. 60 [153]"#1  AND FA = 1 IF THE FIRE BUTTON IS DOWN OR FA = 0 IF THE FIRE BUTTON IS ";
  18. 65 [153]"UP.":[153]"PRESS F1 TO TRY DECODER.":[153]"PRESS F3 TO LIST DECODER ROUTINE.
  19. 70 GETA$:IFA$="[133]"THENPRINT"[147]":GOTO90
  20. 75 IFA$="[134]"THENPRINT"[147]":LIST90-
  21. 80 GOTO70
  22. 90 GOSUB110:JS=820:F1=41:J1=251:B1=252
  23. 100 SYSJS:D1=F1-PEEK(J1):FA=PEEK(B1):PRINT"D1="D1"FA="FACHR$(13)"[145]":GOTO100
  24. 110 FORT=820TO914:READA:POKET,A:NEXT:RETURN
  25. 120 DATA173,1,220,41,15
  26. 130 DATA201,7,208,5,162,40,56,176,60
  27. 135 DATA201,5,208,5,162,0,56,176,51
  28. 140 DATA201,13,208,5,162,1,56,176,42
  29. 145 DATA201,9,208,5,162,2,56,176,33
  30. 150 DATA201,11,208,5,162,42,56,176,24
  31. 155 DATA201,10,208,5,162,82,56,176,15
  32. 160 DATA201,14,208,5,162,81,56,176,6
  33. 165 DATA201,6,208,2,162,80
  34. 170 DATA134,251
  35. 180 DATA173,1,220,41,16
  36. 190 DATA201,0,208,5,160,1,132,252,96
  37. 200 DATA160,0,132,252,96
  38. 210 REM**OMIT PRINT STATEMENTS IN                LINE 100
  39. 220 REM*BEFORE GAME ACTION STARTS,              POKE781,41:POKE 251,41
  40. 230 REM*THIS SUBROUTINE IS RELOCATABLE
  41.